﻿Public Class frmTelefono
    Dim _titulo As String
    Dim _tipoVentana As String
    Dim _form As frmClientes
    Dim Utilidades As New Utilidades
    Dim _idTipoTelefono As Integer
    Dim _tipoTelefono As String
    Dim _nroTelefono As String
    Dim _nroSecuencia As Integer
    Dim _sePresionoGuardar As Boolean = False

    Public Property telefono()
        Get
            Return _nroTelefono
        End Get
        Set(ByVal value)
            _nroTelefono = value
        End Set
    End Property

    Public Property idTipoTelefono()
        Get
            Return _idTipoTelefono
        End Get
        Set(ByVal value)
            _idTipoTelefono = value
        End Set
    End Property

    Public Property nroSecuencia()
        Get
            Return _nroSecuencia
        End Get
        Set(ByVal value)
            _nroSecuencia = value
        End Set
    End Property


    Public Sub New(ByVal tipoVentana As Integer, ByRef form As frmClientes)

        Me.InitializeComponent()

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            _titulo = "Nuevo Telefono"
        End If
        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            _titulo = "Modificar Telefono"

        End If
        _tipoVentana = tipoVentana
        _form = form

    End Sub
    Private Sub frmTelefono_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myAccesoDatos As New AccesoDatos
        Me.Text = _titulo
        myAccesoDatos.traer_valores_combo(Me.cmbTipoTelefono, Constantes.Tabla_TIPO_TELEFONO)

        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            Me.cmbTipoTelefono.SelectedValue = Convert.ToUInt32(_idTipoTelefono)
            Me.txtNumeroTelefono.Text = _nroTelefono
        End If
    End Sub
    Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click

        If Me.cmbTipoTelefono.SelectedIndex < 1 Then
            MsgBox("El tipo de teléfono es requerido.", vbOKOnly + vbCritical, "Atención")
            cmbTipoTelefono.Focus()
            Exit Sub
        End If
        If Me.txtNumeroTelefono.Text.Trim = "" Then
            MsgBox("El número de teléfono es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtNumeroTelefono.Focus()
            Exit Sub
        End If

        _idTipoTelefono = cmbTipoTelefono.SelectedValue
        _nroTelefono = Me.txtNumeroTelefono.Text
        _tipoTelefono = cmbTipoTelefono.Text

        If _form.existeTelefono(_nroTelefono, _nroSecuencia) = False Then
            _form.actualizarGrillaTelefono(_idTipoTelefono, _tipoTelefono, _nroTelefono, _nroSecuencia, Convert.ToInt32(_tipoVentana))
            _sePresionoGuardar = True
            Me.Close()
        Else
            MsgBox("El Teléfono ya existe.", vbOKOnly + vbCritical, "Atención")
        End If

    End Sub

    Private Sub frmTelefono_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If _sePresionoGuardar = False Then
            If MessageBox.Show("Si cancela no se guardarán los cambios ¿Está seguro?", "Atención", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
                e.Cancel = False
            Else
                e.Cancel = True
            End If
        End If
    End Sub
    Private Sub cmdCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click
        _sePresionoGuardar = False
        Me.Close()
    End Sub
End Class